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LA REVISTA 


EDUCATIVA QUE 


ESTABA ESPERANDO 


Usted tiene un ordenador. Ya ha visto 
las ventajas que le puede ofrecer, tanto 
a usted como a sus hijos. Ellos se 
divierten jugando, pero quisiera que 
sacaran más provecho de él... 


Presentamos “ORDENADOR EDU- 
CATIVO”, la primera revista educativa 
para SPECTRUM. Contiene un CAS- 
SETTE con el cual, de una manera 
comprensiva, sus hijos aprenderán las 
materias escolares de una forma amena 
y diferente. 


DE VENTA EN KIOSCOS Y TIENDAS ESPECIALIZADAS 


Nuestro sistema ha sido adaptado y 
probado por profesores y se ajusta al 
sistema escolar español. 


De esta forma, sus hijos no sólo 
repasarán y estudiarán las materias 
escolares, sino que además se familia- 
rizarán con la informática y su lengua- 
je, lo que constituye una eficaz prepa- 
ración para su futuro. Esto es lo más 
importante para usted y nosotros. 


PARA NOSOTROS 
LA EDUCACION 
DE SU HIJO 


ES LO MAS 
IMPORTANTE 
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EDITORIAL 


Esta revista que tienes en tus manos forma parte de un proyecto que 
desde hace algún tiempo teníamos en mente, hacer una revista con 
listados de programas, con una cinta virgen. 


Hemos elegido programas de sistemas de ordenadores que ya son 
populares y de aquellos que, por sus características, sabemos que lo 
serán. La inclusión de una cinta virgen permite la posibilidad de grabar 
los programas tecleados. Al desarrollar esta idea hemos pensado 
ofrecer un producto de calidad a un precio interesante, por lo que 
hemos ajustado al máximo los precios. Esperemos que os guste. 
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ANTES DE EMPEZAR 


Al teclear un programa, hay veces que se está seguro de que no se han cometido errores y, sin embargo, esto 
ocurre y ocurrirá. Ahora vamos a darle una serie de instrucciones que, aunque parecen obvias, le ayudarán a la 
hora de teclear los progrmas incluidos en esta revista. 


a) Lo principal es buena luz y comodidad. Asegúrese de estar sentado cómodamente y con la espalda recta. 
Asegúrese contar con una buena luz y ponga la revista de tal forma que se lea fácil y cómodamente. 


b) Compruebe que todos los aparatos están correctamente conectados y asegúrese que cuenta con las cintas 
vírgenes necesarias. 


Cc) "Hay programas que son largos de teclear, y tendrá que grabar periódicamente éstos para evitar accidentes 
molestos. Le aconsejamos que utilice nombres que puedan ayudarle. Ej.: GEO 1, GEO 2, GEO 3. 


d) Al terminar de teclear un programa, grábelo antes de ejecutarlo. Puede haber incurrido en errores que hagan 
que pierda muchas horas de trabajo. A veces la memoria interpreta comandos mal tecleados como NEW, o se 
mete en bucles infinitos que obligan a desenchufar el ordenador, etc. 


e) Nunca debe estar más de tres horas tecleando un programa, ya que pasado este tiempo y debido al 
cansancio, es más fácil cometer errores. 


f) Cuando se comprueba que un programa funciona, es conveniente grabarlo en una cinta de larga duración 
junto con otros y guardar el original en una cinta de poca duración, guardando un programa por cada cara. De 
esta forma es más fácil tener acceso a él cuando se necesita. 


g) No varíe un programa al introducirlo. Es más conveniente hacer los cambios una vez que se ha introducido el 
programa y se ha comprobado que funciona. No salte líneas creyendo que no sirven para el funcionamiento 
. del programa, ya que el control del programa puede ir a una linea que se ha cambiado y se puede estropear. 


Creemos que si sigue estos consejos no tendrá grandes problemas, aunque seguramente se cometerán algunos 
errores al teclear. De todas formas le aseguramos que pasará buenos ratos tecleando y jugando. 


PALMERA 48K AS 


En este divertido juego debes intentar recoger los racimos 
de dátiles, que van cayendo de la palmera. Es interesante 
hacer notar la estructura del programa, la cual puede 
servirle de referencia para hacer programas propios, por 
la claridad y nitidez de su estructura. Decir que la barca se 
controla con la tecla Z para ir a la izquierda y X para ir a la 
derecha. 
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FRASES LOCAS 


Este es un programa lúdico en el cual se generan frases al 
azar, la mayoría de las cuales resultan, como su nombre 
indica, bastante locas. Los datos pueden variarse a gusto 


del consumidor. Teclea y diviértete... 
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INTERCEPTOR OVNI 


: NOTAS GRAFICAS siguientes: 


MOTAS GRAFICAS 
ABO DEF GHI HEC OREF HI 
A Aún Sú2 34 W: Derecha. 
Q: Izquierda. 
O: Disparo. 
AA 
rd 


En este programa debes interceptar y destruir los OVNIS 
que cruzan por la pantalla. Los gráficos, aunque sencillos, 
son bastante sugerentes y te aseguramos que pasarás un 
rato divertido matando marcianos. Las teclas son las 


41 EGORCER 0. 5 
A a RISHT “1 PAPER u 
AE FOR n= TO 31 
id PRIM DS INT RND*22) 
¿5 MEN dd LT y A 
de RETURN 
45 T a=16 
43 LET Eo 
| 0 LET Equix=0 
E 31 LET Naves=a. 
| pure 
2. 33 
a : Ed 
1 Pa) > Ñ PA , El 
E o de ae. us 
ad 2 1 
14 1 ¡E ER 5 35 
o o O ey ea 
15 ñimt AT 20.3; AS esd, 1: 
q? 4 a+ Ñ 33 
p 3.225 
e. 539 
SUB 2 5 pi 
ts sl 59 
¡lA 5.255 
610 
a 2,224 
LET ña 62 DATA 
0 E 
2.23 CATA | 
qa dll 
23d DAT | 
e. id É 
55 RETURN Ñ 
86 REM A LOtado +x 
22 LET naves=naves 
09 PRINT OVER BAT drequiz: 
53 Foñ h=S0 To ss als 
Beep 357 MU EEEE «0l,h: 
apt s0 NEXT dl 
¿1 REM EE 
z - BEER 2.5 
¿3 INPUT“ iuasma 
E LU ETS Otra vez ly 
AS Y] 


dá cos TIT ps . - 
57 LET a e amix == ] 135 
¿E IF ssp" 
: “> Ru 


THEN NEL 


RESOLUCION DE UN 
SISTEMA DEN 


ECUACIONES CON N 
INCOGNITAS 


Con 48K de RAM es posible resolver un sistema de hasta 
62 ecuaciones, de la forma: 


A(1,1)X,+4 (1,2)X>+..+A (1,n)=E (1) 
A(2,1)X,+A (2,2) X2+..+A (2,n)=E (2) 


A(n, 1)X,+A (n, 2) X2+...+A (n, n)=E (n) 


El programa pide primero el número de incógnitas (N) para 
dimensionar las matrices A y E, y a continuación pide los 
coeficientes de A y de E. 


El sistema se resuelve teniendo en cuenta que 
(A) - (X) = (E) — (X) = (A)1 - (E) 


siendo (A)”* la matriz inversa de A. 
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SPECTRUM 


El programa calcula primero la matriz inversa de (A) y 
luego la multiplica con (E), indicando en pantalla cuál de 
las dos operaciones está realizando. 


Cuando los datos introducidos no sean correctos, 
aparecerá en pantalla el mensaje «SISTEMA NO 


VALIDO». Esta puede ocurrir cuando el sistema no tenga 
solución. 


Por ejemplo, los siguientes sistemas no son válidos: 
2X,+2X,=7 
4X,+4X2=14 


(la segunda ecuación es combinación lineal de la 
primera). 

2X,+2X,=7 

4 X,+4X>,=63 


(este sistema no tiene solución) 


Otra cosa a tener en cuenta es que el coeficiente A (1, 1) 
debe ser distinto de cero. Si es necesario, las ecuaciones 
deben ser reordenadas para conseguirlo, es decir, debe 
colocarse como primera ecuación una con A (1, 1) 
(coeficiente del primer término) distinto de cero. 
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DIBUJADOR 


Este interesante programa es una herramienta muy útil 
para dibujar en el Spectrum. Con él podrás hacer diseños 
y dibujos bastante completos. 


Instrucciones 


Primero se te preguntará por brillo, intermitencia y 
transparencia. En cada uno de los casos deberás 
responder con O (No) o 1 (Si). 


Después se te preguntará por tinta, papel y borde, 
respondiendo en cada uno de los casos con un número 
del O al 7. 


En las opciones «C» y «P», el programa responde a las 
teclas 5, 6,7 y 8. 


La «F» vuelve al menú principal. 


Opciones 


D: Define nuevo carácter (fila a fila y en binario). 

R: Repite un caracter definido anteriormente. 

RT: Repite un caracter definido anteriormente variando su 
tinta, papel, etc. 

C: Escribe caracter a caracter. 

P: Escribe pixel a pixel. 

SAVE: Almacena la pantalla que estamos viendo. 

LOAD: Carga una pantalla para trabajar en ella. 

Texto: Permite escribir texto donde y como quieras. 

CIS: Borra la pantalla. 


NOTA: Los comandos SAVE, LOAD, TEXTO y CLS se 
introducen por medio del teclado y con todas las letras. 


00 


A veces puede ocurrir que se salga del programa. Si 
desea volver a él sin destruir la pantalla que estaba 
haciendo, se debe oprimir: GO TO 140. 
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CALCULO DEL NUMERO 
DE RAICES REALES DE 


UN POLINOMIO (por el 
método de STURM) 


Con este programa puede obtenerse el número de raices 
reales que tiene un polinomio de orden n y un intervalo 
dentro del cual están situadas. 


El orden máximo del polinomio en examen es 30, aunque 
este valor no es crítico y se puede agotar la memoria del 
ordenador. 


El primer dato que pide el programa es precisamente el 
orden del polinomio, lo hace únicamente para conocer el 
número de coeficientes que hay que introducir, ya que 
luego se calcula el verdadero orden del polinomio 
introducido, que podría ser inferior si los coeficientes de 
los términos de mayor grado (los últimos en ser 
introducidos) fuesen cero. Una vez hecho esto, se 
comprueba que el orden real del polinomio sea mayor que 
cero y que el término independiente sea distinto de cero. 
Esta última no es una limitación importante, pues un 
polinomio del tipo X3 — 5X, tiene el término independiente 
igual a cero, tiene una raíz real X = O, además de las que 
tiene el polinomio X? — 5, cuyo término independiente ya 
no es cero. 


En el momento de introducir los datos, hay que tener en 
cuenta que a (1) corresponde el término independiente, a 
(2) es el coeficiente del término de primer orden, así 
sucesivamente. 


Por ejemplo, el polinomio de orden 2 
Xx2-5 


tiene los siguientes coeficientes: 


a(1)=-5 
a(2)=0 
a(3)=1 


y tiene 2 raíces reales en el intervalo /X/ < 6 


El método utilizado se basa en que las raíces reales (r) de 
un polinomio cumplen la condición: 


as<sr<b 
siendo a y b los extremos del intervalo, de tal forma que: 


-a=b=|[/a(1)/+/a(2)/ +... +/a(n+1)/] / [/a(n+1)/] 

+ 
y en que el número de raices reales del polinomio puede 
obtenerse restando el número de cambios de signo que 
los polinomios de Sturm tienen en a y en b. 


El primer polinomio de Sturn es el polinomio que nosotros 
introducimos. El segundo se obtiene derivando el primero, 
y los siguientes, dividiendo los dos anteriores al que se 
quiere calcular, obteniéndose el último al llegar al grado 
cero. 


El programa obtiene los polinomios de Sturm y los 
introduce en una matriz. 


Para ello lleva incluidas una rutina de derivación de un 
polinomio y otra que divide dos polinomios. 


NOTA IMPORTANTE: Al teclear el programa, es necesario 
fijarse para no confundir el cero Y con la tecla O. 
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Con este programa podrás tener un piano en tu pantalla y 
convertirás el teclado de tu ordenador en un instrumento 
musical. Intenta superar a Tchaikovsky. 
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LABERINTO 


rare LABERINTO rrrrr 
NHsa 


L=4 
CLEAR 35RESTORE COLOR 13,1,1 
CLSi5HEY OFF:SCREEN 1:FRINT:PRINT:3FRINTEFRINI 
FRINT" AWWWWWWWWWWW Y " 
FRINT" V LABERINTO Y" 

¿daa PFRINT" ¿WWWWWWWWWWW L " 

11% FOR 1I=1 TO 1442 

12% NEXT 1 


ON ERROR G0TOU 3% 

DEFINT A-2:U0EF FNE(xX,1)=:(X=WX-1) AND (1=WY-1)) 
DIM Dx (3) ¿DY (3) :FOR 1=4 TO 3:READ 0xXc1) ¿OY (17 ¿NEXT 
DATA 2,0,0,2,- ¿0,02 


LOCATE 8,8: PRINT"NIVEL (1-3)" :A$=INKETY+:3L=VAL (A+) :1F L<1 OR L>3 GOTO 179 


FOR I=i1 TO L:READ Wx:NExXT :Wr=Wa 

DATA 3,8,12 

FOR I=1 TO VAL(RIGHTE(STRE(TIME) 427) :X=RND(1) ¿NEXT 
PRINT:PRINT:FPRINT:PRINT 


PRINT"ESTAS EN UN LABERINTO. DEBES" :PRINT:FRINT" BUSCAR LA SALIDA" :kX=WX+ 


LK Y=WY+1WA=WAA ZW =W TZ 
DIM MUWX ,WY) 
FOR 1=0 TO WxX:M(0,1)=1 3M(1,0)=1 ¿M(WX,1)=5:M(I,WY)=1 ¿NEXT 
C=(kx-2 Ri KI—=2) 2CA=U—4 
A= INT (RNDICL) AX) 423 1= INT (ROD) RX) RZ 3 1F M(x,Y)=0 GOTO 260 
GOSUB 380:1F C<CA THEN IF CN GOTO 270 
IF £<>4 GOTO 260 : 
“PLAY 
SCREEN 2:4M=1:1M=1 :0R=0 
GOSUÉ 440 “LINE 


IF FNEXxXM,1M) THEN  GUPEN "GRF:"FOR OUTFUT AS +1:FSET(940,10) :FPRINTH1,"S A L 1 
D A":GOSUB 624:FOR OW=1 TO 1500:NEXT CW:SCREEN 1:LOCATE 1,140: PRINT " HAS ENCAU 


NTRADIO LA SALIDA" :G0SUE ó63u 
A=STICRKiM) :1F A=0 THEN 330 
A=(A-1)/Z2:DR=(DR + A) MOD 4 
IF MOXM+DX DR) 7/2, 1M+D Y (DR7/2) THEN DR=cDR+4-A) MOD 4:G0T0 330 
XM=XxM+DIX (DR) 3 YM=1M+D Y (0) 
GOTO 310 
*SUBRUTINA 
RO=INT(RNOD(1)4) ¿R=R 
IF MOxX+DX CR) +07 (R))=4 GOTO 420 
R=(R+1)M0D 4:1F Re<>RA GOTO 44% ELSE CN=4:RETURN 
MAD CR) 1/2 Y+DV(R)/2)=1 :X=X+DIX(R) :Y=Y+ 00Y (R) 
MX, Y)=1 :0=C0-1 :0N=-1 ¿RETURN 
Ls 
X=xM31=1M:x0=128:101=92:Lx=128:L1=92 
UWd=DX (DR) /2:V8=001 (0R)/2 


Ul=0x((OR+1) MOD 4)/2:V1=D0Y ((DR+1) MOD 4)/2:U2=0X((DR+3) MOD 4)/2:V2=0Y ((DR+ 


MOL 4/2 

IF M(x,1) THEN IF FNE(x-UM, 1-4) GOTO 574 ELSE sea 

IF M(x+U1,Y1+V1) THEN GOSUB 550 ELSE GOSUB 520 

Las-Lx:21F M(x+U2,1+V2) THEN GOSUB 55% ELSE GUSUB 52 

LASABS (Lx* 8) :L1=LY*.81X=X+U0:1=Y+V0:G0TO 480 

LINE (xgHLX, YO+LY) (XOLA, TOY) 

LINE (XU+LA y TO+L 1.8) (X0+LX*.8,10+L1*.8) 

LINE=(X0+LA+*.8, 10-L 1.68) ¿LINE —(X0+LX ,1U-LY*.9) ¿RETURN 

LINE (X0+LX, YU +LY)—=(AMALAR LS, TULA ES) 

LINE (XG+LA, YO-L 7) X0+LA* 8, 1U-L1*.8) ¿RETURN 

LINE (XO-LX ,YO-LY)=(X0+LX ,YO+L Y), BF :RETURN 

LINE (XM=LA, YO-L Y) (X0+LA ,YO+LY), B:RETURN 

IF ERL=400 THEN 1F ERR=S OR ERR=3 THEN RESUME 410 

ON ERROR GOTO U 

END 

FOR I=1 TO 3:PLAr"T2000sSLo2GECGECGECGECGECGEC":NEXT IÍRETURN 

LOCATE 2,15:PRINT"QUIERES CUNTINUAR(S/N) :":As=INKEYS+:1F Aj="S" 
IF As="N"THEN END ELSE 1F A+<>"S" OR A$<>"N" GOTO 634 


THEN 54 ELSE 


LISTADOS 


LA CULEBRA 


Tienes una culebra hambrienta que debes conducir a Mientras más huevos comas, más puntuación obtendrás. 
través de la pantalla para comer los huevos que aparecen La culebra se controla con las teclas del cursor, hacia la 
en ella. Ten cuidado, porque la culebra va creciendo cada derecha y hacia la izquierda. Para jugar de nuevo debes 
vez más y, si muerdes su cola, morirás. Tampoco debes pulsar la tecla de cursor izquierda[y]. 


chocarte con las paredes, pues sufrirás la misma suerte. 


LISTADO PROGRAMA SINARE: CLluan 


14 
lin 
14 
132 
144 


SDUREEN ¿4 MECOLOR ¿MU MESDEFINT A-2:A=RNiDi—TIME) 
O AS VD) 

GUSUE 1374: 1111 

UFEN"grp:"ADHL 

>bL=l 15N=3 1 FPU=42LV=1 15 T=4 

GUSUE 1WIdr ces 


(===33 333 3=== 


Hu=w4 ELo=4 2x0 Hi =16: 1 (H0)= ¿2 0 D0L=S 1 D0R=41:1S5F=1 :kS=0:711=255:15D0=% 
PSET (128,170 ¡Q:LOLOR S:LIRAW Hi+ : 

Fa= INT (RM 281+1:F1=INT (RN 1720). 

IF FOINTI1FarB8+3,F1r8+3) THEN 210 

FSETIFx*8,F71%8) ¿MICOLOR 14 :0RAW Fis 


¿(===444d4=== 


1F LF=4 THEN 44 
Tl=T1-4:LINE(T1,187/-1711+4,191),13,BF 

TIM THEN ¿aa 
SE=SF+33LE=SLF+3 TP 1= 2551 L INE (0,180) (255,191) ,2,BF 
FOR N=1 Tu 3 
FA=INT (RN ASH) 
FEr=1INT RIN 1d) IA 
IF POINTiFxr8+4,Frx8+3)<>% THEN 320 
PSETIEx*8,F148) ¿QMECOLOR 14: 0RAW Fi 


Ss ¿pset (224,4) ,¡Qiprint+l using" "44" 314 


Ri=s5TICRi5T) 
IF koi=k5 THEN 43% 
OR=OR—= 4 0=3) —(k 0=7) 3 : DR=0RMODI4 :.S=D 
5i=1-su 
IF 5D THEN FLar"obl3Z%e" ELSE PLAT"o06l3c" 
Ha=x 14 Hio) 3: H1=1 UHL!7 
NxA=Hx- (UK=1)+(0K=3) 
NY=HT—(UR=2) + (UK=0) 
ESETIHA*8S,¿H1+8) ¿MECULOR MEDRAW Hi 
FSET(HX*8,H1+8) ¿¡MICOLOR S:D0RAW Eb 
PEN=POINT(Nx+*8+4 ,N719+3) 
IF EN THEN eu 

8 :DRAW HiiE 
Hi=Hi+1 
IF HO=341 THEN Hi=4w 
ACHDDO) =WNa 211 Hito =N1 
IF úL THEN ÚL=0L-1:G0TO ova 
PFSETUXALO/ 8,1 (L5/%8) ,Q: COLOR MSDRAW BED 
L5=L5+1 
IF L5==541 THEN L5=4 
1F Nx=1ó0 AND NT=1 THEN 784% ELSE 250 


IF PN<>14 THEN 384u 
PLAr"oblo4c+","oblo4d”,"oolo4dgkH" 

LINE (4,180) (235,191) ,2,BFi3TI=255 

FU=PO+50*+ 14 ! 

FSETIUNA*8,¿N1%8) ,UICOLOR ASURAW Fi 
OL=OL+8:PSETIONAR*B, 01987 ,QECULOR MSDRAW HD 
LF=LF-1 

IF LE=4 THEN LINE (124,8/-1143,15) ,8,BF:LINE(128,8)-(135,15) ,0,BF 
LIME 12.24 0) 1237, 7) ¿U1, EF 

COLOR 13:PSET (224,2) ,0:FRINTR1,USING"*$" LF 
SF=5F-1 

IF SF THEN S¿4 

1F LF=4 THEN slu 

s5F=1 

Fa= INT RINDA 1) re 30) 1 E r= INT ORND (1) A) + 

1F POINTIF1r8+4,F18+3)<>0 THEN 78m 
PSETIFx*r8 ¿Frey ¡DECULOR 14: 0RAW FIT:é 


tad: D-(103, 71 M,BREFSET (04,4) ,D:FRINTR1L, USINO"HHHRR Y ED 
GUTÚ 


PLA1"07TZSOLSCRO4URO4LoULoRe64L ¿CRO4L3LIRRO4LBDROAR6AL 3DLOCRO4L ICREIDOLSBOTLEC 


LINE (Nxr8+3 NN T8+43)—4 INT ORND(179+256) , INT(RND(1)192)) , INT(RND(1)*16) 
IF FLAT (0) THEN 37 

SIN=5N=1 

IF SN THEN 154% 

LINE (72,32/-1151,75) ,1,BF 

FSET (84,014) yl :FRINTEL, "GAME OVER" 

LINE (48,8/-(153,15) ,0,BF 

PSET (39,8) ¿Q:COLOR S:PRINTH1,"<- TO RE-FLAr" 

IF STICR(ST)<>7 THEN 95d 

G0Tu 144 


LISTADOS 


AA 
10awm FLAT"O7L3EC2DEFGABL4MECO7" 

1010 S5U=SC+1:60T0 154 

1030 * 

1030 “==="7777=== 

104a - 

105% CLS 

1064 COLOR 

1070 LINE(6,14/— (250,186) ,,É 

1080 PAINTU%A,2) 2,2 

1092 LINE(16,27-(103,7) ,0,BF 

110 COLOR 15:PSET(16,0) :PRINTH1,USING"SCORE :HH4HH" ¿PO 
1110 LINE(120,0)-(175,7) ,0,BF 

1120 COLOR 15:PSET(120,0),1:PRINTR1,USING"SNAKE :4" ¿SN 
1130 LINE(184,0)-(239,7) ,4M,BF 

114D 

1154 ON SC-1 G0SUÉ 1180,1200,1230,1280,1320,1380 

1160 LE=10*LV: COLOR 15:PSET(184,0) ,0:PRINTH1,"FOOD:"¿USING"HHE" LF 
1170 RETURN 

11680 LINE (56,%Y0)-1175,103) ,2,BF 

119% RETURN 

1200 LINE (S56,90)-1175,103) ,2,BF 

1210 LINE(120,58)-(127,143),2,BF 

¿220 RETURN 

1230 LINE(80,04)-(159,71) ,2,BF 

1240 LINE(80,90)-(159,103),2,BF 

1254 LINE (80,128)-(159,135) ,2,BF 

12060 LINE(80,04/-(87,135) ,2,8F 

1270 RETURN 

1280 LINE (56,56)-(199,143) ,2,BF 

1290 LINE(64,04)-(191,130) ,1M,BF 

130% LINE (124,56)-1135,03) ,0,BF 

1310 RETURN 

1320 LINE (56,50)-(199,143) ,2,BF 

1330 LINE(120,50)-(135,143) ,0,BF 

13440 LINE (64,64)-(112,136) ,0,BF 

1350 LINE(144,04/-(1791,130) ,40,BE 

1360 LINE(74,96)-1150,111) ,0,8F 

1370 RETUEN 

138% 5C=1 ¿LV=LV+1 ¿RETURN 

1390 “===B8BBBB==== 

1420 HDi="BR2R4F1D4GILAHIUGEL" 

1410 Ebé="EDIBRADGUILIRE" 

140 Fié="ER3RZF1L4GIRSDILSFIR3IG1" 

1430 RETURN 


a 


MSX 


Este es un programa para hacer quinielas con las 
Q U / N / E L AÁ S : variantes que se deseen. No estamos seguros que con 
este programa le toquen 200 millones, pero seguro que 


pasará un rato agradable. 


oLipiano PROGRAMA cla": LLuUAL diz. 


RARRRRRARO O LOA OO ARA 
FRubkAmá PARÁ HACER GUINIELAS 


FE*+Aa Hl11—-e11 


ÚUPEN"LDRES"EFROR GUUIFUT AS RL:SCREEN 3 ¿COLOR 9,4,4 

PRESET (10,4%) ¿FRINTHL,"  >SUFIÍ" 

PRESET (14,64%) ¿PRINTH1," CANJE" 

LINE 72, 102) 11917420 143 ,B:PRESET1940,1400) 23PRINTH1, "1x2" :GOSUB 430:FOR I=1 T 

O Saw INEA] 
lod CLuse 

UFEN"grp: "FOR GUTPUT As Rl:A=kKND (TIME) :T=4 

CLS:COLOR 13,4,4:5CREEN 22A=1:0N EEY G0US5SUB 3140,394,,,37% 

PRESET182£,10) 5FPRINTR1,"FE+A HIT-KIT" 

LINE 100,23) (248,1737,1,8 

FOR I=54 TO ¿08 STEF 16 

1F AY THEN -FRESET11,427) 2PRINTR1,A:LINE(1,25)-(1,175) ,1:A4=4+1 

NEA 1 :A=1 

FOR 1=33 TO 17% STEP lu 

LINE (o4d,1-i2<48,L7 ,1 

1F AxlS THEN PRESET (50, 1I+2) :FRINTH1,A :A=A+1 

NEXTIFPAINI (ol,zo),l 

LINE 113,1890)-(254,191),1,8F 

COLOR 15S:PRESET(124,182%) ¿3PRINTH1,"Fi=COLUMNAVE2=F INVFS=INICIO":KEY(1) ON:SkEY ( 
ONEEE TU) UN 

GOTO 344 

“ INTERRUPCIÓN Fl 

F=4:FOR l=1 10 14 

CSINTiRND 11d) +1:21F U=3 THEN Cé= " x"ELSE IF C=4 THEN Cé=" 1" ELSE C$=STRE 


COLOR 1: PRESETi6d+N 3 7+F) 1: BEEPSPRINTH1,CR 0 F=F+10 
NExT:T=T+1:1F T<8 THEN N=NM+lo ELSE 1F T=8 THEN KEY(1)06UEFF 
RETURN 

N=0:F=0:CLOSE :60T0u 174 

RETURIN 

EN 

RETURN 

co *aear MUSICA INICIAL *e* 


» 


A+="Lguol4 .EUEGloLo4CFALSU7COSBAGES . .OSLO64GBOGOLSGFOOSEGBOSDFECAGGA" 
B+="05L8cbeo" : 

Ci "USCAFA" 

="04GOSE UE" 

Pb be ee 

[$+="LsUocd .ELEGlOLO4CFALSO7COOBAGGS. ¿USLO4IGBOSOLEGFIOSBGROSNOSBOSCOSGOSECCA" 
Gisele ree 

PLAT"SIM3UDaTiZa","SEMSUATIZO "PLAY AS,FSFIFLAY T4.65 

RETURN 


LISTADOS 


MUSICA 


Este programa musical, además de hacerle pasar un rato 
agradable, le demuestra las grandes posibilidades que 
tiene el sistema MSX en cuanto a sonido. El MSX puede 
utilizar hasta tres canales simultáneos para producir 
sonidos, y además el hecho de utilizar el altavoz de la 
televisión hace que el sonido de los MSX sea 
sobresaliente. 


ATTTNNOS 


LIS 


ClioTabo FRUGRAMA UE MUSILA: CLOAL"MUSICA” 


10 : rexrr*r FRUGRANA MUSICAL *r*rrr 


gu: Moo A 


Su 

ya GUTI 934 

104 SCREEN 4 

114 “DEMOSTRACION EFECTOS ESPECIALES 


120 >. 
130 LUCATE 5,10:PRINT :CLEAR 

140 PRINT" X WILL IA JIJI JIJI Y 
150 PRINT" Y EFECTOS ESPECIALES V" 
160 PRINT" ZII III LITTLE 


170 LOCATE1S,1S:PRINT"" ROCK" 

180 B=S00:PLAY"v12" 

190 A$="T23003EGRBO4CHUCHOZEGH" 

200 E$="T23003AD4CHEFRGFRECH" 

2140 C$="T2300380404F4GHAGHFRDA" 

220 FOR A=3 TO 15 

230 1F A=9 OR A=S OR A=6 OR A=7 OR A=15 THEN 270 

240 PLAY"M=B3":PLAY"S=A3" 

250 FOR I=1 TO 2:PLAY A$:NEXT 

260 PLAY B$:PLAY A$:PLAY CS$:PLAY B$:PLAY"V10" 

270 NEXT A 

280 FOR A=1 TO 5000 :NEXT A 

2948 GOTO 930 

300 

310 - “EL GOLPE 

320 GOSUE 450:CLEAR:PLAY"V12","v12","v12":PLAY"","sim4000","" 

330 P+$="T15006L 8VECOSAABGGDECO4AABGGDECOZAABAA-GGR4O5GRE" 

340 Q$="T15005L 8DECO4AABGGDECOZAABGGDECOZAABAA-GGO3GRE" 

350 A$="T15004L 8DO$+EOSCCO4EOSCCO4EOSCCCOMAARBOSCODRHECDEEO4BOSDDC2R404dDREOSCCO4E 
O5SCCO4EOSCC2R404AGFRAOSCEEDCO4AOSD2DRSO4DDREOSCCO4EOSC404EOSCC2RSCODFECDE404BOSD 
4C2R4CDECDE4CDCECDE4CDCECDE404BOSD4CC4" 

360 B$="T15003L 4RGRO2GRFRERGRGROZCRCO2603CRO2GRFRERDRARGGABO3CRO2GRFRERGRGRO3CO2 
GCRO3C202B-2A2A-2GRGRO3CO2GC" 

370 C$="T15003L4RR1RFRSLSEFFR+GEFG4RSF4R4E4L4R2R1RFRERRSOSCRSO4F8REF2FBRBRRIRFRSL 
SEFFRGEFG4RSF4E2R2GR4G4R4RSFR4F4RAREBGR4F4RSF4E4ER" 

380 PLAY P$,0$ 

390 FOR I=1 TO 3 

400 PLAY A$,BsS,C$ 

410 PLAY"SIMSQU0" ,"s3m5QU00" ,"simsa00" 

420 NEXT 1 

430 FOR T=1 TO SO00:NEXT T (pasa a la pág. 23) 


VULASENSAC 
REVOLUCI 


¡ONAL ¡ESTREMECE 
ONARÍA TOSHIBA O Y) 


TOPE EN JUEGOS ,MAXIM 
PARA ELÓOLE Y GENIAL PASA 
ENTRARLE A LA INFORMATICA! 


- (NOILA,Lo LICTIMO DE Lo ULT 
SÍ DEL IMPERIO DEL SOL les 
NACIENTE !/ 


0) 

Ny 
A 

O NE ) ¿7 

5 ES 

ACILISIMA PARA LA ECONOMIA DOMESTICA 1y Sao 
DE LAJERA Y COMPLETISIMA P VALE 69500! 
TRABAJO DEL CARA EL Y ES UNA MSX] 


Ordenador Personal 


TOSHIBA HX-10 


Su Ordenado Servidor 


69.500 p:s. 


Y TAN FACILIP 
Q1Y TANTOS JUEGOS !P 
SY Solo 69,500! 2 


TÍ GUAL PONME 
| A COSECHA! 


Sistema standard MSX. Memoria de 64 K 
RAM, 32 K ROM y 16 K de pantalla. 16 co- 
lores.73 teclas. 32 sprites. Sistema mul- 
ticolor: 64 x 48 bloques. Sonido: 8 octa- 
vas tres acordes. Conexiones para: casette, 
impresora, 2 mandos y futuras expansiones. 


española de microordenadores s.a. 


Caballero, 79 - Tel. 321 02 12 - Telex 97087 EMOS - 08014 BARCELONA 


d utilizado universalmente que permite disponer de una gran variedad de programas y accesorios compatibles entre sí. 


MONSER,S.A. 


Con motivo del reciente acuerdo, para la comercialización en nuestro país 
del TECLADO PROFESIONAL para SPECTRUM, te ofrecemos, en exclusiva, 
esta SUPER OFERTA sin igual hasta la fecha. : 


CARACTERISTICAS DEL TECLADO Suscribiéndote a cualquiera de nuestras 


publicaciones, que como ya conoces, tienen 


— Construido con material ABS de alta una calidad excepcional, y comprando el eq 
densidad. TECLADO o el JOYSTICK e INTERFACE, 

— Panel numérico separado. te ofertamos los precios indicados. Como 

— Conexiones accesibles por la parte trasera. puedes apreciar, hemos realizado el mayor' 

— Espacio interior para colocar numerosos esfuerzo para que dispongas de este magní- 
periféricos (Microdrive, Transformador fico teclado —pensado y diseñado como los 
de corriente, etc.). profesionales—, o del Joystick y el Interface. 

— Tecla “DELETE” de utilización directa. Conviértete y convierte a tu Spectrum 

— Teclas con funciones impresas de fábrica. en un profesional 


INTERFACE 

— Con doble salida. 

— La primera salida simula las teclas 6, 7, 8, 9 y 0. 

— La segunda salida, funciona con juegos compatibles con 

Kempston. 

JOYSTICK 

— Mango con diseño anatómico. 

— Posibilidades de disparo automático. MONSER 
; — Dos teclas de disparo. 

— Ventosas super-adherentes. 


A 
Y 


HE E ya 
AA 


o 
48-kK 


SOFTWARE MAGAZINE 
CON ESTE NUMERO OCHO:| | 


2 SUPER CASSETTES «FULL MEMORY 38K» 


OM INSTHUCCIONES EN CASTELLANO: 


NN Software Magazine. 
—— e Cada número consta de dos cassettes con programas 


A 11 D25 ptas: 


48 K. 
La mejor revista de Micro Informática con cassette, 8 3 7 5 pta Ss 
al mejor precio. Aparición mensual, coleccionable. ho "u 


Ordenador Educativo. 
La primera revista educativa para Spectrum. 


Contiene un cassette con tres programas educativos, 3 
con los que sus hijos se divertirán aprendiendo. .455 ptas. 
CUPON DE PEDIDO El importe lo abonaré: 
Do Contra reembolso 
Suscripción por 12 números a partir o Talón nominativo MONSER, S.A. 
Gl Coba A ess citan C / Argos, 9. 28037 MADRID 
SOFTWARE MAGAZINE o e 
48 K D A 
>) JC 
o is E NOMBRE PROVIN Clan dde 
TECLADO PROFESIONAL [a] 
JOYSTICK E INTERFACE 7 DIRECCION a: do roo, AS 
TELERONO toa a FIRMA 


El sistema más sabio 


PHILIPS introduce en España 
el HOMECOMPUTER más sabio, 
el sistema MSX, nuevo estandard 
mundial. 

¡Con cuanta sabiduría se ha 
pensado en cada una de sus 
características! 

Con el PHILIPS MSX puede 
realizar mil combinaciones 
de elementos: monitores, 
impresoras, floppys, programas 
educativos, de juegos y 
aplicaciones profesionales, gracias 
a su compatibilidad total tanto 
en hardware como en software. 

El PHILIPS MSX está tan 
sabiamente diseñado que Vd. 
puede elegir entre conectarlo al 
televisor de su casa, o a un monitor 
monocromo o de color. 

De igual modo puede utilizar 
como unidad de almacenamiento 
de memoria un cassette normal 
o un Floppy Disc del sistema 
MSX. 


¡Y qué potencia tiene el 
PHILIPS MSX! 

Es tanta, que si lo utilizamos 
con un Floppy Disc y junto a 
MSX-DOS, es compatible con 
sistemas de tipo profesional y de 
precio mucho más elevado. 

Y aquí no acaba la sabiduría 
con que ha sido creado el 
PHILIPS MSX. 

Puede hacerlo crecer según 
sus necesidades, desde un 
sencillo ordenador doméstico, 
con el lenguaje Basic más 
potente del mercado, hasta un 
sistema de tipo profesional que 
puede llegar a una capacidad 
máxima de 1.024 K bytes. 

PHILIPS MSX. Nunca se le 
quedará pequeño, nunca se 
le quedará anticuado. 

PHILIPS MSX, creado como un 
equipo atractivo, fácil 
de usar y muy asequible de 
comprar. 


El amigo sabio de la familia. 


PHILIPS 


¡PHILIPS MSX, sin duda, el 
sistema más sabio! 

MSX-DOS es compatible con 
CP/M'* y posee la misma 
estructura de ficheros que 
MS-DOS"*. 

Todos los sistemas MSX son 
compatibles entre sí. 


MSX, MSX-DOS'" y MS-DOS'M son marcas 
registradas de Microsof Corp. 

CP/M'M es una marca registrada de Digital 
Research. 


y: desea algún tipo de 
información relacionada con 
el campo del HOMECOMPUTER, 
estamos a su disposición en el teléfono 


(91) 413 22 46 


| sobre el PHILIPS MSX. 


Nombre 
| Apellidos 
| Domicilio 


PHILIPS IBÉRICA S.A.E. 
Apartado de Correos 50.800 
28080 MADRID | 


MSX 


A. 


444 GOTO 930 
450 SCREEN 
460 PRINT:PRINT:PRINT:<PRINT:PRINT:¿PRINT 


470 PRINT" XWWWWWWWWWWWWWWWWWWWW Y " 
480 PRINT" V y" 
490 PRINT" v TEMA MUSICAL y" 
590 PRINT" V y" 
510 PRINT" V DE LA y" 
520 PRINT" V y" 
530 PRINT" V PELICULA y" 
540 PRINT" V y" 
550 PRINT" V “EL GOLPE” y" 
560 PRINT" V y" 
570 PRINT" V y" 
580 PRINT" ZWWWWWWWWWWWWWWWWWWWW LT " 


590 RETURN 

600 CLS:GOSUB 670:CLEAR:PLAY"V1i2","V12","V12" 

610 Vi$="T10806L4CCDOSG .OG6CSDEEFE .DSCESDSCOSGOEC . DBESF8GGGG .FBEFFFF .ESDELSFEDCL4 
E.F8GL12AGFL4EDCR4R4 R20" 

620 V2+$="T10803L4EGAD .GOGGAAGBAFEDE .R8R4GGG6 .G8GGGGG . GBGGLSAGFEL4G .FBGRAGFER4R4 

r20" 

630 V3$="T10804L4DEFG . ABBOSCO4AFGGRAFGO3604C03CR404CEGO5SCO04CR403CB04D6036R404C05 
CCC .04ABEF818603604C03GC R20" 

640 PLAY V1$,V2$,V3$ 

650 FOR F=i1 TO 8000 :NEXT F 

668 GOTO 930 

670 SCREEN 0:PRINT:PRINT:PRINT:PRINT:PRINT:<PRINT:PRINT:PRINT 

680 PRINT" XWWWWWWWWWWWWWWWW Y " 


690 PRINT" V y" 
700 PRINT" V HIMNO y" 
710 PRINT" V yo 
720 PRINT" ZWWWWWWWWWWWWWWWW E " 
730 RETURN 


740 “ MINUE NUM.Z2 J.S.BACH. 

750 COLOR ,15,15:SCREEN 1 

760 CLS:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:CLEAR:CLEAR:CLEAR:PLAY"v12","v12","y 
12" 


778 PRINT" XWWWWWWWWWWWWWWWWW Y "" 
780 PRINT" V y" 
790 PRINT" V MINUE NUM.Z2 y" 
800 PRINT" V y" 
810 PRINT" V 3.5. BACH y" 
820 PRINT" V y" 
830 PRINT" ZWWWWWWWWWWWWWWWWW [ " 


3840 A+="T210L 2051004L 4GABOSCL20004GG0O5SE4L8C04BL405CDEF*G204G2 .OSL8CO4BL405C2DICO4BA 
B205C04BAGF+*2GABGE2A105D204L4GABOSCL200046605E4L8C04BL405CDEF*G20462 .OSL8C04BL 405 
C20C04BAB2053C04BAGA2ZBAGF+G1." 

850 B+="T212L1036A2B .04C.03B.A.G .04L 2003EG04TI03L4D04CO3BAL2B1AGBGO04C1 .03BL404C03 
BAGA1F*+261B204C21203D02620262." : 

860 C+="T21005L 4B2GABGA2IEFR+OG2EF*+G0C4+204B05C+404A2ABOSCRDEFRGZFR2E2F$204A205042D 
1R20204G6F*G6203E2046F*G20502C204B2AGF*GA2DEF*GABOSCL8O4B05C04B2A2B40511404G2F+$261. 


874 D$="T212L 1036 .F* .E262E2A02A203A .E204D02C4+20203F+2420402030204C203E2041:203B204 
C2E2C203B2A262040R203D0F+2E262F+26202B203D262D020262" 
884a PLAY A+,B+ 

:890 PLAY C+$,Ds$ 

908 PLAY As,BE+ 

. 910 FOR I=1 TO S5UUA:NEXT 

924 GOTO 934 

930: REM'“MENU * 

9448 COLOR 12,14,14:SCREEN 0:KkEY OFF 

959 LOCATE 15,5:PRINT" ME NU" 

964 LOCATE 15,6:PRINT"WWWWWWWW" 

970 LOCATE 14,10:PRINT"i3 ROCK" 

9840 LOCATE 14,12:PRINT"2: EL GOLPE" 

999 LOCATE 14,14:PRINT"3: HIMNO" 
1904 LOCATE 14,16:PRINT"4: BACH" 


23 


L 


24 


ISTADOS MSX 


LOCATE 14,18:PRINT"S: FIN" 


LOCATE 2,22:PRI 


NT"PULSAR OPCION.. 


Y$=INKEYS$ : Y=VAL (Y$) 
IF Y<1 OR Y>S THEN GOTO 1030 


ON Y GOSUE 104, 
CLS:GOTO 93u 
CLS:END 


LISTADO DE SIMEGLOS 


300 ,600,740,1070 


FARA COMMODORE-64 


A —————oo CURSOR ABAJO 
e A CUESOR ARRIBA 
MO CURSOR DERECHA 
AE CUESOR IZQUIERTA 
O CTRL. 1 

A o CTRL/ 2 

A TELA 3 

bh o CTRL 4 

A CTRL 3 

O ——————— CTRL 6 
Dn ETEL 7 

7 CTRL/ 8 

A ETRL 3 

MO CTRL/ Y 

a ———————— l= / 1 

BR  -------- C= 2 

A AAA RÁ EC= / 2 

A C= ¿4 

E o E= 7 3 
e Cs 6 

O C= £ 7? 
aaa C= r 8 

TT ek SHIFTrCLR 

BA o HOME 

Mo ——————-- TECLA F-1 

A TECLA F-2 
Mk TECLA F-3 

E ——————— TECLA F-4 

MO TECLA F-3 

Y ——————— TECLA F-6 

Ml --—----- TECLA F-? 

N., =22 2 F-8 


LISTADO DE SIMBOLOS 


CURSOR 
CURSOR 
CURSOR 
CURSOR 
CTRL/ 


PARA COMMODORE-24 


HEAJO 
ARRIBA 
DERECHA 
IZQUIERDA 


CTRL : 


CTRL 


1 
2 
4 
3 
6 
Y 
g 
e 


1 
2 
3 
4 
3 
"e 
E 
3 
3 
a) 


CLR 


1401 A] 
DAD CA NA 


aaa mm 


COMMODORE 


VERBOS INGLESES 


Este programa seguramente será muy útil para los 


estudiantes de inglés. Se trata de un programa que tiene SLEEP 

todas las declinaciones de verbos ingleses. El programa, To 7) £ 

una vez ejecutado, explica todas las instrucciones y ¿Y 

posibilidades de este interesante programa. 10 C H 
ANGÍNG 


1 POKES3Z8b. Y 
2 FUKES3231.,0 
PRINT" TA 
PRINT"2 TG a — 
PRINT"3 HA HH —, 
PRINT"E pe a 
PRINT" RADO POR" 
PRINT" 00 TP ANDES LIIORPEEEN TOMES AA GBA" 
FORNSOTO7ORO: NEXT 
DIMIN$C1005 :DIMPASC100) :DIMPFEC100) 
FORI=1 7037 :READAS : IN$152$: HE«T 
FORI=1T097 :READAS,P$:PAS.15=A$:PP+c10=Pg:MEXT 
FRINT"" 
FOKE33290, 0 
POKES3281,0 
PRAT ——— A A E _— Q>Er E _Er 
PRINT" 1 
PRINT" 1] 
PRINT" 1 
PRINT" 1 
PRINT" 1 
PRINT"! 
PRINT" | 
PRINT"1 
PRINT" 1 
PRINT" | 
PRINT" | 
PRINT"1 
PRINT" 1 


PR NT AA ed 


PRINTTAB<132"TITMITITITITIMOPCIONES" 


LISTADOS 


PRINTTABC2)"MIRBLISTA DE TODOS LOS INFINITIVOS" 
PRINTTABC2>"MIBRSPREGUNTA DE VERBOS" 
PRINTTAB<2>"MICZSLISTA DE VERBOS" 
PRINTTAB<2) "MIDESLISTAR UN VERBO" :PRINTTAB(2)"MEZSPARA SAL IRA" 
PRINT"1 
PRINT" " 
PRINT" O 
INPUT""TEBBICUAL QUIERES"; AS 
]=1:Pa] 
IFAS$="A"THENIOGO 
IFAS="B"THENGOGO 
IFA$="C"THEN2000 
IFAS="D"THENSOGA 
- IFASC>"E"THEN250 
600 PRINT"] APARA SEGUIR CRUN)":END 
2990 PRINT*ACIGU INFINIT. PAST TENSE PAST PART.M" 


2003 PRINT"ORE INS< 1): 1I=1+1: IFI>97THENI=98 

2004 NEXT 

2005 PRINT"TINNNIITITINTITITTITI":R=1 

2007 IFP>97THENZ0300 

2010 GETBS 

2017 IFB$=""THENZ010 

2021 PRINT"IODIDIIDDDPASCP> 

A A 
2023 RxR+1: IFRC19THEN2007 

2024 INPUT" SOTRA PAGINA (S/N J$ 

2025 I1FJ$2"S"THEN2000 

2026 IFJ$="N"THEN100 

3000 PRINT"INOBIDDIDDDIDDIDIINFINITIVOSN" 

3001 FORR=1T020 

3093 PRINT"¿31"INSCI):PRINT""DBBEBDDA!" IN$C1+20) :PRINT""DOBDOBRDIDDDIDDDD" NGC 1+40) 
A AAA AD) 
IA IA 
3023 I=I+1:NEXT 

3024 INPUT "00 AYOLVER MENU (S/N JS 

3025 IFJ$="S"THEN100 

3026 IFJ$="N"THENEND 

35090 INPUT" DW QUE INFINITIVO";Y$ 

s010 I=1 

5020 1IFY$=IN$C1>THENSI00 

5930 I=1+1: IFI>97THENPRINTTAB<7) "ZIMIIMIMINO LO CONOZCO" :FORN=0TO900 : NEXT: GOTOS141 
5049 GOTOSOZO 

5100 PRINT"cDO INFINIT. PAST TENSE PAST PART.N" 
5110 PRINT"DI"INSCIA 

3130 PRINT""IDOODODODDODAD PASCO 

A 11199) 

3141 PRINT"MXJ  — V=BOTRO VERBO" 

3142 PRINT"XA — M=2MEND" 

51590 INPUT" 00 CUAL QUIERES (WET JS 

3160 IFJ$="Y"THEHSaGO 

3170 IFJ$="1""THEN10A ' 

6090 PRINT"IMQINFIHIT. PAST TENSE — FAST PART. N" 
60190 I=INTCRADC10A37) 

60420 PRINTIHSCIA 


26 


COMMODORE 


6023 PRINT" III 
6029 PRINT" TABIDRAIIDDD 
6030 INPUT" TIDOBBDDDDD!"; 223 
5039 PRINT" IBID 
60409 INPUT" TIBERIO" ZAS 
6039 IFZ2$=PASc 1 ANDZASEPPSCIO THEN PRIMNT"IBBBDODDIASLO HAS HECHO EIENN":GOTOG19D 
£070 PRINTER 107  MALIINAADESA" 
6072 PRINT"M SINFINIT.W — PAST TENSEN - SFAST PART. NN" 
6073 PRINT" BI" INSCI:PRINT" IRRADIA PASO IO 
A E 
6100 PRIHNT"IDDADDDI=MERNIJ" 
£103 FRINT"MIBDDB=OTRO VERBO" 
6107 INPUT" IBBBBICUAL GUIERES" WES 
6110 IFWES="HM"THEM1aa 
6120 IFWES+=""W"THENGOGO 
10000 DATABE, EAT. BECOME, BEGIH. BEND, BITE. ELCM, BREAK. BR IHG 
10001 DATABUILO. BLIRH. EY, CATCH. CHOOSE, COME. COST. CUT. DIG 
19006 DATADO., DRA, DREAM, DRINK. DRIVE, EAT, FALL. FEED, FEEL. FIGHT. FIND, FLY) FORGET 
10007 DATAFREEZE. GET, GIVE, GO, HANG 
19012 DATAHAYE , HEAR. HIDE, HIT. HOLD. HURT, KEEF) KNOd. LAY. LEAD. LEAN. LEARN. LEAYE. LEND 
10013 DATALET.LIE,LIGHT. LOSE 
10017 DATAMARE, MEAN, MEET, PUT, READ, RIDE, RING, RISE: RUN, SH Y, SEE. SELL. SEND, SET 
10013 DATASHARE. SHIHE, SHOT, SHOT 
10022 DATASING. SIMK,SI1IT. SLEEP. SLIDE, SMELL. SPEAK, SPEND. STAND. STEAL. STICK. STRIKE 
109023 DATASWEAR, SWIN, TAKE. TEACH, TEAR, TELL 
10029 DATATHIMNK, THROW, UNDERSTAD, WAKE , WEAR, WIN, WRITE 
290900 DATAWAS., BEEN. BEAT, BEEATEN, BECAME . BECOME, BEGAN, BEGLIN, BENT 
20003 DATREENT. ElT. BITTEN, ELE, BLOMN, BROKE, BROKEN, BROLIGHT > BROLIGHT, BUILT, EUVILT 
20004 DATABURNT, BURNT, BOLIGHT, BOLIGHT , CALIGHT, CAUGHT, CHOSE, CHOSEHN, CAME, COME 
20003 DATACOST. COST. CUT. CLIT, DUG, DUG 
20093 DATADID, DONE, DREW, DRAWAN. DREAMT, DREAMT, DRANK, DRUNK, DROYE + DERIVEN, ATE 
290009 DATREATEM. FELL.FALLEN, FED, FED: FELT,FELT, FOLGHT, FOUGHT, FOLIND, FOUND, FLEW 
¿9019 DATAFLONN, FORGOT. FORGOTTEN., FROZE, FROZEN, GOT, GOT, GAVE. GIVEN. WENT. GONE, HUNG 
20011 DATAHLING 
20014 DATAHAD. HAD, HEARD, HEARD. HID. HIDDEN, HIT,HIT,HELD, HELD. HURT, HURT, KEPT,KEPT 
20013 DATAKHNEN, KNOWN. LAID.LAID, LED. LED. LEANT., LEANT, LEARNT, LEARNT,LEFT,LEFT 
20016 DATALENT.LENT.LET,LET,LAY,LAIN,LIT,LIT.LOST, LOST 
20919 DATAMADE. MADE. MEANT. MEANT, MET, MET, PUT, PUT, READ, READ, RODE. RIDDIEN, RANG 
20020 DATARUNG, ROSE + RISEN. RAN. RUN, SAID. SAID, SAW, SEEM. SOLD, SOLD. SENT, SENT 
20021 DATASET. SET. SHOOK. SHAKEH, SHONE , SHONE, SHOT, SHOT, SHUT, SHUT 
20025 DATASANG, SUNG, SANK, SUNK. SAT, SAT. SLEFT, SLEPT+SLID, SLID.SMELT, SMELT 
20026 DATASPOKE. SPOKEH, SPENT, SPENT) STOOD. STOOD. STOLE +: STOLEN, STUCK, STUCK 
29027 DATASTRUCK. STRUCK, SHORE, SHORH, SHAN, SHLIH. TOOK, TOKEN, TAUGHT, TAUGHT, TORE 
¿0023 DATATORN, TOLD. TOLD 
299039 DATATHOLGHT., THOLIGHT . THREM. THROWH) UNDERSTOOD. UNDERSTOOD  WOKE , WOKEH 
20031 DATANORE, MORAN. LION, ION. MRCOITE + WRITTEN 
290033 DATATHOLIGHT, THOLIGHT. THREW. THROWH. LINDERSTOOD. UNDERSTOOD, WOKE, WO KEN 
20034 DATAMWORE » MOR, NON, NON, WROTE, WRITTEN 
203590 IMPUT" 1 SUTERES MENU (S-M9"5J3 
205039 IF I$="S5"THEH100 
20310 IF I3$="N"THENEND 


READY. 


LISTADOS 


BIORRITMOS 


¿Quiéres saber cómo estarás emocional, fisica e 


intelectualmente? Pues este programa es para ti. Ahora 


podrás saber si merece la pena salir a la calle o encerrarte 
y olvidarte de todo hasta que pase tu mala racha. 


READ. 

1 REN ERRE A 
Z REN + 

3 FEM + EJOREITAO A 
4 EEM 4 de 
REN + IRA E. FLIAEROSO + 
E de 
7 REM + Ii de 
3 REM + ES 
BRENT RARA All dede 


15 FRINTURR": S0T0d E 

11 

12 REN PLE A) LI PUNTO 

13 A] . NS 

14 

13 

le: 

17 FEM CARGADOR CÓDIGO MAGIA 

13 I=43132 

.19 RERDA: ellas E 

E "DK. A: EEN SOTO A 

2 0,134, 150, 162,4, 134, 151, 160.8, 145,150 
e vide. 101.224. E 200,243 La 

psp . 34, 150, 162,32, 1394, 151.166,0,145,150 
a DATAZOD, 26 Do .c191.166,131.224,064,203,243,96.-1 


ZE REM REREERRACTIVA HERA 
Er aa POREN+3Z. 0: A A E 
2 POKEW+ 1, PEER Ce LP DA 

2d POREVW+2d. FEEK + 2d DRE 

30 RETURHN 


o REN MIIESCRIEE EN pe 
34 PORE NE. A 0 FOKE1L,S 

3 FORL=1TOLENCAES 
E SER $ 

237 COSASEAMIDECAS.L. 100 

3 IFCOSESTHENCO=C0-E4 
FORH=9TOP 

1 POKEFO+HN. PEER 2242 + COR D+ AH) 
HEXTH:E=C+1 0 HEATL 
POKE1. 33: PORKE TE 334. 1 

43 RETURA 


43 REM AAINICIALIZACION 2 
47 DIME. M01Z0 
48 CC%="LLULLLLOOAL BELLO ALELLA ML 


N 


8 


COMMODORE 


49 Di$="123456729012345678901223456725901" 

So D= E= ” 2 ES E 

51 FORG=1T0S:MC$=9105+"4ouI" 0 MENXT: MCERCGA 
Se FORN=17T012:RERADIMECA, MÁHO : HET 

33 DATRENERO, 31, FEBRERO. 28, MARZO. 31, ABRIL. 34.MAYO. 31, JUNIO. 36. JULIO. 31, AG0S370. 31 
A A o OCTUBRE. 31. NO'"IEMBRE, 30. DICIEMBRE, 31 


. El 


57 REM ++HHENTRADA DE DATOS++++ 
52 POKES3280. 0: POKES3281,0 

59 POKE13,1 

69 INPUT "TIMIBINOMNBRE: ";H$ 

Hg=" "+Ng 


PRINT"ADIMINDTIBFECHA DE HACIMIENTO <DD, MH, ARARO > *: THELITIDA MH. AH 
PRIHT"DDIEIDDIDIAMES DE INICIO DEL BIORRITMO <rmk ARARO :": THPLUTMI. AI 
POKE13.0 


OE SES AI44 0 THEN = Mo 20+1 


Y 7 A A CN 0 0 0h 0 
0-3 M 0 Lo pea 


REM. RRRRICALCULO 44H 

£2 GOTOTZ 

PO IFMOSTHEMNA=A-1 Ha +12 

1 M=1M+1 

re Ha AED. 23M, E+D RETURN 


D=DH: M=11H :A=SAN: GUOSLIBTO : Hit 
D=1:H=111 :A=A1 :GOSUETO:HI=H 
DW=IHT: HI-HH o 


REM. FFREDIELN OFF 

GOSUEZE:31249110:591949153 

A 
F=1:E=1:A%="BIORRITMOS DE"+HF:GOSLIE3. 


ps a e o a | 


23 PRINTS"; TAECZPO  LEFTECMOS3RLEMCME COMIDO) 
24 FORGO=1TOLENCAGCMIO 
85 Fs7+0:C=aT:AS=MIDECME(MIO. O, 10 :GOSUEZS 


HEAT 

PEITAT" ANTAD LEFTECOCE. cn TAR RATA REMITA 
Fs13:C=2:Hé=SLEFTE DiR. MeomIco 6 ae 
A RESLEFTE CDE. Mom GEL qe 
PORN=23TO33STEI 


co 


2100-14 0 4 24) A 2 40 00 4 0 LA a 6 


ir 


FORE=16T015+ ? 
ON1+cH-2334S60SUB117,120.118 
3100-7150 TRHADEOS CO GOSUE1S 
HET, ml 
CETHE: IFHE=""THENGOTOSE 
POREV+24, 21: POREV+172,27 :PRINTOT" 
PEINT"TUTAELSI "DESERE OTRO FIORE ITHMO 25 3" 
GETA+: IFHA$= STHEMPR INT ec: EHD 
IFA "3" THEME 
: PRIMT"NR TADOS "DE LA MISMA FERSONA Car Hit 
GETRÉ:IFAR="H"THEHDA 
IFAR20"3"THEH104 
PRIANT"9":FOKE1S. 1: G0TO6S 


A 


O E A O 


n= 
a 


IH=92: ¡Fs23 C=1 0 HAR="FISICO" GOSUES 
3187 FORA=60T050: GOSUB1S: HEAT: RETURN 
IH=112:F=22:CE=11 :Ag="EMOCIOMAL" : GOSLES4 


Pa A e A pa es A A RAS LO Lo La La LO yo 


Es a 1 A 


LISTADOS 


187: FORs=164T101345TEP4 : GOSUE13: 0 HEZT RETURN 
de 3: C=24:A3=" INTELIGENCIA": GOSUEZ4 
POR *=292 70312: 50202110: 0050813: HEX%T:RETUEH 
Lal GOSUBILI: ax 
RETURN 
IFA IRTE ta MENA 
RETUEA 
ASA RETURN 


Pa pr HA po pu pd ps 
Dir A hm ps 


DORADOS A SA 


INTEGRALES 
DEFINIDAS 


Con este programa se podrá calcular la integral definida 
de la función que se elija. Después de introducir la función 
hay que introducir la constante y el programa se 
encargará de hacer los cálculos. 


FREAI". 


ai ii 


INTEGRALES DEFIAIDAS 


+ 
E 
* 
JUAN E. FIZARRAOSO + 
+ 
+ 
Ed 
* 


PERRA RARA RARA 


al 
Os 


PR TNT" SACA CULO DE INTEGRALES" 

PRINT"O POR EL METODO DE SIMPSON" 

RINTUNMBBDE NTRA LA FUNCION EN LA FORMA Fc<x>": INPUTFS 
21 DEFFHINCO="F3 


CE A 


k POKEEZL. 15: POKEGIZ, 13: POKEG32, 13: FOKE198, 3 
E END 
11 DEFFHIN e A ads 
EZ PRINT"ARIMIBENTEA LOS LIMITES EN LG. FORMA: LIM SUP,LIM INF" 
INPLUTA. E á 
PRINT"RNENTRA LA ETE. DE SIMPSON": 
THELTA 
IRF RINES 
H=¿E- HA, 11 
2 FOR J=1 701,02 
ASA+H: I=I+FHINIAAd 
GA ASRA+H: I=I+FHIHIADAZ 
31 HET 
Ge Isi-FHIMNCES 
1=I4H03 
FERINT"EMA"TARBC102"I==39"1 
S FERINTTRECZ Uy 
E END 


READY. 


COMMODORE 


DIAS DIAS | 


El programa «DIAS» es de gran utilidad cuando es 
necesario saber el total de días existentes entre dos 
fechas, ya sean del pasado o en el futuro. 


El programa suma los días teniendo en cuenta los meses 
de 31 días, así como los meses de 30, también tiene en 
cuenta los años bisiestos. Las fechas se darán en forma 
numérica. El año con cuatro cifras. 


| 


FRINT"0":POKES32Z 01. 15: POKES3Z340. 14 

PRIHNT"d a a 
PRIMT" A DIAS DIAS DIAS DIAS =" 
PEIMT" E] ” 
FRINT"MM EL PROGRAMA “DIAS” ES DE GRAN UTI-" 
PEIMT" LIDAD CUANDO ES HECESARIO SABER EL" 
FPRIHT" TOTAL DE DIAS EXISTENTES ENTRE D03" 
PRIMT" FECHAS. YA SEAN DEL PASADO (O EH EL” 
PRIHT" FLITURO,. " 

11 PRINT" EL PROGRAMA SUMA LOS DIAS TEHIENDO" 
12 PRINT" EN CUENTA LOS MESES DE 31 DIAS ASI" 
13 PRINT" cOmO LOs MESES DE 30, TAMBIEN TIE-" 
14 PRIMT" HE EN CUENTA LOS AMOS BISIESTOS." 


El 
11 
Z 
4 
5 
6 
7 
3 


LISTADOS COMMODORE 


PRINT" LAS FECHAS SE DARAN EN FORMA HLIME-" 
PRIHT" RICA. EL ANO COM CUATRO CIFRAS." 
REN 
FRINT"MA.— PULSA UNA TECLA" 
GETAS: IFAS=""THEHZ1 e 
DIMAR120:DIMECIZ 
FORI=1T012:READO:Ac1=0: HEXT 
FOR1I=17012:READO: EXI =61: NEXT 
> PRINT"O" :POKES3201, 0: POKES3250, a 
FPRINT" ea E 
PRINT" | FECHA IHICIAL 1" 
PEINT" qx 
IHFUT"M DIA :";D1 
INPUT" MES :"5m1 
TIHPLIT"9 ANO :":Al 
3 IFD1<C1ORI1S310RM1<10RM1>12THENPRINT"RFECHA INICIAL ERRONEA": GOSUESG6: GOTOZé 
3 PRINT"M Fq———————————— 
2 PRINT" | FECHA —— FIMAL ]" 
PRIHT" A 
A THFUT"M DIA :";D2 
IMPLUIT"8l MES :",MZ 
TIHFUT"0 ANO "¿AZ 
IFDZ<10RD25310KM2<10M23212THEHFEIHT"2FECHA FINAL ERRONEA" :GOSUESOA: GOTOca 
IFAZSA10R<A2=A1ANDMZ<M1 THENFEIHT"MFECHAS ERRONEAS" : GOSUESGA: GOTOZE 
IFA2=A1ANTIM2=141 ANDDZ<D1 THENPRINT"BFECHAS ERRONEAS": GOSUESA 
SI=4 
3 IFA1=A2GOTO ZA 
34 Ca=A1/94: IFC 249=A1 THEHSD=3D+366-£B<M15+D15:560T0159 
SI=SI+263-C¿A4M13+D15 
a Hi=1:D1=05 , 
A1=HA1+1 : IFA1<A2G60T01 34 
LCA=A2/4: IFC As4=A2THEHSD=3D+ ¿EX M29+D2) : GOTOSO 
24 SI=S DC ACME DZO GOTOSOA 
LasA1 7/4: IFC A44=H1 THENSD=<B MZA DE CEC M19+D10 GOTO 
SD=¿AcMZ ++ DC ACM1 + D15 
a FRINT"H TOTAL DIAS GUE RESTAN"; =D 
PRINT"M OTRA FECHA [arH]" 
GETA+*: IFAS=""THEH3ZO 
IFAS="=5"THENZS 
END 
FORT=1TOZ4aa: HET: RETIRA 
DATAA. 31.59,90,120,151.151.212 
DIATA243. 273.304, 334,0,31,60,31 
DATR121.132, 182.213.244, 274, 309.335 


REALI", 


15 
4:GOTOZE 


AMSTRAD 


EVASION 


El juego consiste en eliminar los ladrillos del muro para 
poder evadirse. El ordenador te pide el tamaño del palo, 
eliminándose los ladrillos que toquen la bola. Dispones de 
4 bolas en una partida. El palo lo controlas con el joystick 
o con las flechas de cursor. La puntuación obtenida 
aparecerá al final. 


= REM 

FRANDOMIZE TIME .z 

500 SYMBOL 240,255,195,1£3,1523.159%, 
165.195,255 


si0 SYMBOL 241,255,255,255,224,224,224, 
224,564 
s20 SYMEOL 242,255, 235,255,0,0,40,0,0 
s30 SYMBOL 247.255, 2599,2595, 7.79 71792 
550 MEMORY 34993 
560 addr=3,4999: GOSUBE 29500 
570 loca=35029: GOSUE 30500 
1000. sc=0:1i=3 
1010 MODE 1 
1020  IMFUT "Raqueta pequena/grande”",at* 
1030 s$t="":lim=19 
1040 IF a$="G" OR at="g" THEN 
s$=CHR'$ (242) +CHRE (242) :1im=17 
1050  GOSUR 20000 
1060  —count=0 
1100 u=1 
1110  GOSUE 21100 
1200 b=24 
1210 RANDOMIZE TIME 
1220 IF RND(1);0.5 THEN c=1 ELSE c=0 
230  ecsc+(INT(rdn(1)x10)+5) 
1250 bd=-1:ad=-1 
1500 'GOSUBE 21000 
1520  GOSUE 22000 
1550 IF count150 THEN GOTO 1050 
2000 GOTO 1500 


CEA 


19980 "errprorpipantallariiiii 
20000 RESTORE 20050 

20010 FOR n=0 TO 15 

20020 READ w 

200730 INE n.w 

20040 NEXT n 

20050 DATA 0,24,18,26,20,4.6,15 
20060 DATA 24,18,2,5,8.6. 15.2 
20070 PAFER 0: BORDER 2:MODE O 
20075 RESTORE 20210 

20080 FOR n=i1 TO 20 

20090 READ col 


20100 FOR m=i TO 10 
20110 LOCATE nm 
ea FEN col 
20130 FRINT E(2 ; 
20140 col a 
20150 NEXT m 
20156 MEXT n 
20200 RETURN 
20210 DATA 3,4,4 
3,15,5,4,4,7 


2090 * ¡ 
z ec 'MOVimiento: 
21000 GOSUE: 22000 


21010 1F le=1 AND 54 THEN JE 2 
TES ¿2723 GOSUE 21100 a is 
<lOZO IF ri=1 AND x<lim THEN GOSUEÉ 
is 2:=3x+2:2 GOSUE 21100 
<10730 RETURN 
21000 *<xg2. 
21100 FEN 1 
21110 LOCATE Es 
CHR$ (247) 
21120 RETURN 
21390 *< ¡ELLE : 
21400 LOCATE Pa $" 
21420 1F séxzco0uu “R Y » 
21450 RETURN a á 
216580 S 
21700 FEN 2 
21710 LOCATE 
N 


21400 


“tadibujo:: 


25: FRINT CHR$ (241) ¿5€; 
b . 


¿“dibujo pelota: 


C.b:¿FRINT CHR$ (202) ; 


re ed EPS 27 

LAO ansias <borrado pelota: 
21800 LOCATE c.biFPRINT O" 9". 
21810 RETURN ? 

21920 *2x3%2ck imi : 

Eb ¿AÁMOVimiento pelota:>:;> 


GOSUB 21800: a1=c:b1=b 
al=al+ad:bi=b1+bd 

IF ali=0 THEN al=1:zad=1: 
SOUND 2,50,1,15 j 
IF ai=21 THEN al 
SOUND 2,50,1,15 
A b1=0 THEN b1=1 
a b1=25 THEN GOTO 
22060 LOCATE a1l.b1:GOSUE 


22010 


22020 


22070 
E y =20:ad=-1: 


22500 
30000 


33 


LISTADOS 


26100 > 

IF ch=240 THEN FPRINT 6110 Es 

SOUND 2,100,2,15:5€= 26120 FRINT » 
= t+1 5 261730 da 

E CA THEN bd=1: SOUND 2,50,1.13 = bo EEN 
anoa7 e S a “ 

32080 cocradi b=b+bd 26150 FRINT 

2500. SUE 21700 2£150 FR aL 

22100 RETURN 20500 Loan 753" puntos 1 

O LOCATE c.25: 60SUB 30000 2W+LOCATE 1,29; * 
22500 eS - 


26000 FRINT 
rá 25000 A , 
22510 IF ch=32 THEN GOTO cute :EYs 2 (S/N) " 


:aSsUPFER 
O O ANDE JONS THE c=c+1 26525 co a THEN GOTO 1000 
Pai E AS $ 26530 GOTO 26s1p — -StMODE 1:END 
ANI O 

26000 GOSUE peo NO 

EL0zo oo THEN GOTO 1100 


SHERLOCK HOLMES 


Eres el inspector Sherlock Holmes y estás haciendo una 
investigación en donde podrás medir tu valor, capacidad e 
inteligencia para detectar criminales. El ordenador 
selecciona un criminal! con sus caracteristicas y un 
testigo que determina si es culpable. Puedes preguntar 
hasta un total de 6 conjuntos de caracteristicas. En la 
pantalla aparecen esas características junto con la 
declaración de testigos clave. Debes introducir el número 
del sospechoso, elegido como criminal, y el ordenador 
juzgará si has acertado. 


22070 


FELICITACIONES 1 ¿5 


”o 
Su Puntuacion: » 


el REM Ds 
1000 GOSUB 22000 


IF w(l)=n OR 
w(2)=n OR 7) = , 
w(4)=n THEN PRINT 40 R w(Z)=n OR 


200 suE 20000 ten , "El Ccrimi . 
1509 OSuB 21000 1690 NEXT EN ii 0 
Dn » y 
1800 FOR a=1 TO é 1700 DATA 


€ra,era,era,te 
a.llevaba 
1 Z.llevaba 
1710 RESTORE 1720 
a FOR n=1 To 12 
730 READ a,b: , a 

do s SOUND a,b,15 
1744 DATA 100,25 


1£10 GOSUB' 23000 

62 EXT yg td 
10 Ela F2:FRINT Ha: 
poner el numero del ¿ 
ted cree que cometio 
1540 PRINT $2: 
FRINT $2. 


E nia pelo, tenia 
Ahora debe zapatos, tenia OjOs, 


ue us 


sospechoso Q 
crimen." 


" 
“El testigo diic que.-- 


: oc (23, 200.25.300 NN 
RESTORE 1799. 1746 DATA 200 55 on 299300, 25, 400, 25 
FOR n=1 TD. 10 748 ¿a 00, 25, 400, 25 S00.28 

y DATA Zoo, 25.400) . «500,25 


25.500) a 
nos 00, PEA 600, 25 


AMSTRAD 


1750 a$=INEEYS$: IF a$:<"1" OR at:"49" > 21070 a=INT(RND(1)x4)+1 > 
THEN GOTO 1750 21080 s$(q.n)=1$(n,a) 
1760 :cr=VAL (a$) 21090 NEXT q 
1770 SOUND 2,£00,S0,15: z 21100 NEXT n 
SOUND 2,400,50,15: 21105 n=w(1):GOSUB 21 
RO : s <=1150:n=w(2): 
SOUND 2,200,50,15 GOSUB 21150 50:n=w(2): 
1780 CLS $2 A 21110 n=w(3):GOSUB 2 ¿n= 
17920 IF cr=s THEN GOTO 2000 GOSUb o 21150:n=w(4): 
2000 PRINT $2,"Es usted un negado *Insp 21120 RETURN 
ector? Ferez. No ! Le voy a degradar a 21150 RANDOMIZE 7 
E IME: a=INT(R 

agente Ferez" 21150 s$(s,n)=1$(n,a) IN (RND(1)x4)+1 
2010 FPRINT $2:FRINT $2 21170 t=s+2:1F t>4 THEN t=t-4 
2020 FRINT $2,"Era el sospechoso numero 21180 s$(s,n)=1$(n,a) 

EE . BÉREZ21190 IF ac>1 THEN b=a- e 
2050 GOTO 3050 21200 t=t=2:1F t<1 A HENPiS ta b=4 
3000 FPRINT $2,"Felicitaciones, Inspecto 21210 s$(t,n)=1$(n,b) 

r Ferez !" - —— 21220 tst-2:1F t<1 7 ez 
3010 FRINT $2:FRINT $2," Dedujo corr 21230 s$ (t,n)=15$(n e e 
ectamente el criminal, a partir de las p 21240 RETURN ? 
istas dadas." “—— 21250 RANDOMIZE TIME: a= ' 
2050 LOCATE 6€.25:FRINT " Fulza cualquie 21260 s$(s,n)=1$(n 509 ANA 
r tecla para jugar otra vez." 21270 IF s:>1 o , Ñ 
3060  a$=INKEYS$: as=UFPERS (at): eS 21280 s$(t,n)=1$(n eS e ROREEr4 

IF as$="" THEN GOTO 3060 21290 IF ac>4 THEN" 

pa e b= as 

3070 IF a$="S" THEN GOTO 1200 21300 t=t-1:1F t=0 a b=1 
3080 SOUND 2.100,50, 153 21310 s$(t,m)=1$(n,b) ' 
3090 GOTO 1200 21320 tst-1:1F t=0 THEN E 


19980 — 21330 s$(t,n)=18(n,b) 


20000 INE : : 2,61 INK 3,2 21340 RETURN 

20010 BORDER O:PAPER O:PEN 1:MODE 1 21500 DATA HOMBRE, CHICO, MUJER, CHI 

20020 WINDOW A 7 21510 DATA GORDO, DELGADO. FRAGIL Eno: 
20020 WINDOW a 4% 21520 DATA ALTO. BAJO, GRANDE, ENANO 
20040 PAPER 41,0:P a 21530 DATA NORMAL ,CORTO, RIZADO, !L.ARGO 
20080 PAPER 2,0: PEN 82,3: 2 21540 DATA CASTANO, NEGRO. RUBIO. ROJO 
20060 PEN Zino=1 PO 21550 DATA TRAJE,GORRO.CAFA. JERSEY 
20070 FOR n=12 TO 76 S — 21560 DATA EOTINES, BOTAS, ZAFATOS. ZUECOS 
20080 LOCATE n.1:FRINT no 21570 DATA AZULES, GRISES, VERDES. NEGROS 
do Anido 21580 DATA PEQUENA, GRANDE, ROTA,RECTA 
2 d E — 21500 DATA T RATETSTA 
20100 NEXT O a roo DATES PEGAS, DAGA, PISTOLA 
20120 FOR n=3 TO 12 21780 *<<tx2<<imicializacion»>+>> 

20130 LOCATE 1.n PE 22000 DIM seta. 10 


20140 READ as: FFINT a$ 
20150 NEXT n 
20160 DATA 0-SEXO, 1-ASFECTO, 2-ALTURA, 
2-PELO, 4-COLOR F, S5-ROFA, 6-CALZADO, 
7-0JOS, 8-MARIZ, 2-OTROS 70 FOR me . 
20170 PRINT $2, "Elija su pregunta(0-9)" 2208605 FOR Ae de ba 
20500 e ] - kz Ñ Y ”, 
Z0280 recent UPRO PARANA 22070 READ 1£(ín.m) 


21000 RANDOMIZE TIME 100 dd m 
21010 s=INT(RND(1)x4)+1 . eo A 
21020 FOR n=1 TO 4 Pene ñ URNA 
21022 w(n)=0 22980 

¡21024 check=0 


2010 DIM w(4) 


020 DIM 1£(10,4) 


- 
” 
- 
2205 
- 
pa 


150 RANDOMIZE TIME 
166 RESTORE 21500 


— al, 


EY$: aS=UPFERE (ag) 


21025 a=INT(RND(1)X10)+1 a$2 "0" OR a%:"0" THEN 
21030 FOR a=1 TO 4 27020 o 

21012 1F w(q)=a THEN check=1 o 

21034 NEXT q : 22075 SOUND 2 

21075 IF check=1 THEN GOTO 21024 22025 SOUND 2, £00-qux50,25,15 
210737 w(n)=a -5 oi Lio 


E 2 LOCATE +$1.pex2-7,.qw 
23050 FRINT $l.s$(pe.qu); 
23070 NEXT 


21040 NEXT n 
21050 FOR n=1 TO 10 
21060 FOR a=1 TO 4 


LISTADOS 


EL TRIANGULO DE LAS 


BERMUDAS 


El juego consiste en dibujar lineas de colores entre dos 
puntos. El primero que forme un triángulo de su mismo 
color, pierde. Las líneas las dibujas moviendo la cruz 
intermitente en el sentido contrario al de las agujas del 
reloj, mediante las flechas de derecha a izquierda o con el 
joystick. Cuando la cruz esté en el primer punto desde el 
que debe partir la línea, pulsa COPY. Un pitido te dirá que 
el punto de origen se aceptó. Después el cursor salta al 
punto de llegada y cuando se pulsa COPY la linea se 
dibuja. No se puede empatar, y el primero que mueve no 
siempre tiene la ventaja. 


pea REM 
1000 :GOSUE 
1100  GOSUE 
1110  GOSUR 22000 

1200 GOSUB 26000 ] 

1200 FOR n=1 TO 1000 

1310 NEXT n Ñ a 
12900 IF play=1 THEN win=< ELSE win=1 
1400 LOCATE 14,24 

IF win=1 THEN FEN 2 ELSE PEN 0% 
FRINT "GANO EL JUGADOR "¿win: "+ 
a$=INKEYS$ 0 

1F a$="" THEN GOTO 1430 


21000 
20000 


= ¿pantallas 

2 QyO 26: £ 2,6: INF 
20000 INF: : : 1,26: INE 2,6: 1 
o DO: FAFER O:FEN 1:MODE 1 


20010 BORDER 
20020 LOCATE 17,1: FRINT "TRIANGULO" 


20070 LOCATE 16,2: FRINT 
20040 FOR n=1 TO 6 
20050 FLOT píins1) pins 2), 1 
20060 DRAWR 0,8: DRAWR -8,0 
20070 DRAWR 0,-8: DRAWR 8,0 
20080 NEXT n 
20090 LOCATE 1,10 
20100 PEN 2 
20110 PRINT "JUGADOR 1" 
20120 LOCATE 33,10 
20170 PEN 3 
0120 FRINT "JUGADOR 
20150 TAG $3 
20160 PRINT CHR$ 
20500 RETURN 
20980 PEA 
21000 DIM p(6,2) 


2. 
- 


(273) CHRS$ (1): 


PRPD>> 


¿cízccimicializar 


5 


SPP — 


21010 RESTORE 21000 

21020 FOR n=1 TO 4 

21030 READ pín,1) 

21040 READ p(n,2) 

21050 NEXT n 

21060 DIM d(6.6) 

21090 RETURN 

210 ca 320, 300, 440,240,440,110 
e Poseo, 50,200, 110,200,240 
” ses AAA AAA comi z : 
22000 FOR n=1 TO a á 
22010 FOR m=1 TO 4 
22020 d(n,m)=0 

22030 IF n=m THE = 
22040 NEXT m diia 
22050 NEXT n 
22250 RETURN 
¿3000 le=0rriXO:fi=0 

23010 a=30Y (0) 

23020 b=J0Y(1) 

23030 a=za OR b 

23040 IF (a AND 4)=4 THEN le=1 
23050 IF (a AND 8)=8 THEN ri=1 
23060 IF (a AND 16)=16 THEN fi=1 
23070 as=INKEYS Ñ 
23080 IF as=CHR$ (240 

23080 242) THEN le= 
23090 IF as=CHR$(243) THEN rn 
23100 1F as$=CHR$(224) THEN fi=1 
23120 FOR p=1 TO SO:NEXT Pp 

273150 RETURN : 
DIPBO *ecccicee 
24000 point=1;1 

PLOT 0,0,2 Els 

24010 MOVE p(pc e 
24020 FRINT 


PLOT O, 0,3 


$3, CHAS (159); 


JUego ros 


¿MANdOS > PP rr 


P (point, 1)-10,p(point,2)+10 


24030 GOSUB 23000 . 
220ñ0 IF +fi=1 THEN GOTO 24150 a 
24050 MOVE p(point,1)-10,p(point,2)+ o 
24060 PRINT $3, CHR$ (159); 
24070 IF le=1 THEN point=point-1 
24080 IF ri=1 THEN point=point+1 
“34090 IF point=? THEN point=1 
24100 1F point=0 THEN point=6 
24120 GOTO 24010 
24150 SOUND 2,200,50,15 
24160 FOR w=1 TO 300 
24170 b$=INKHEYS* 
24180 NEXT w 
24190 RETURN , 
aO6 EVE pifros1)-10,p(fros2)+10 
24210 FRINT $, CHAS (159) 5 me Ñ 
242320 MOVE p(des,1)-10.p(des,2)+10 
724230 FRINT $3, CHRS$ (159); 
24250 RETURN ns 
DAOBO PE “turno: 
25000 GOSUE 24000. 
25010 fro=point “x= 
25020 GOSUB 24000 
25030 des=point 
25073 24000 
nO e =3es OR d(fro.des): 0 THEN 
GOTO 25200 : : 
25050 FLOT p(fro,1).plfro.2) 
25060 DRAW p (des, 1).p(des, 2) 
25070 d(des,fro)=play 
25080 d(fro,des)=play 
25090 FOR n=i TO 6ó 


Este es un programa para ayudarte a calcular áreas o 
porcentajes. Se te dan figuras geométricas y tendrás que 
decir cuántos cuadrados pequeños caben en esa figura 
geométrica. 

Se puede jugar con des jugadores. Teclea ENTER 
después de hacer cualquier elección, asi como al teclear 
tu nombre. Si no aciertas, el ordenador te dará ciertas 
pistas en forma de cuadrados pequeños y te volverá a 
preguntar el total de cuadrados que hacen falta para 


rellenar la figura. El primer jugador que obtenga 10 
aciertos, ganará. 


>Estimacion de areas 
MODE 1:BORDER 13 : 
DIM jugador$(2), puntuacion(2), 
numero (3) 
"Principio 
puntuacion (1)=0: puntuacion (2)=0 
CLS:GOSUB 410 
FOR i=1 TO 2 
LOCATE 1.8+iX*3: 
PRINT 
“Como se llama el jugador "; 
iz" 23 
GOSUB 510: jugador$(i)=tempi+$ 


AMSTRAD 


25100 IF d(des,n)=play AND dín,fro) 
e a 27000 
2 es,n3=pla = 
THEN dead=1:G0SUB 27099 Oo Play 
251730 NEXT n a 
251%0 RETURN 
2,200,20,15: 
2,300,20,15: 
2,400,40,15 
25210 GOTO 25000 


=play. 


26000 6,2 
6010 play=1:GOSUBE 25000 
26020 INE 2,4 

26030 IF dead=1 THEN FÉ 
26040 INE 23,20,11 o 
O Play=2:GOSUB 25000 
26060 IF dead=1 THEN 

26070 INK 3,20 AOL 


26080 GOTO 26000 
26980 *<<<ex 2 


2,6: INK 3,20 
«P(fro,2),1 
spín,2) 


” 2 


pos 


27100 RETURN 


É 
A 
; Ds 
AS : NS 
y 
SN 


Mbs 


NEXT i 

£LS: BORDER 15 

” Imprimir : 

FOR go=1 a. 
GOSUE 950 
FEN 3:clues=0 
LOCATE 10.8: 
PRINT jugador+$ (go); 

"es tu turno 


e 
PEN 2:LOCATE 1,10: 
PRINT 


"Cuantas cuadr 


a iculas caben? 
¿STRINGS (9, CHAS (8115 


PEN 1:GOSUB 510 


37 


LISTADOS 


IF VAL (temp15$)=heightiwdth 
. THEN GOSUB 600:G0TO 230 ' 


PRINT "CORRECTA" 


38 


200 clues=clues+i: 
IF clues>3 THEN GOSUB 740: 
GOTO 230 
210 num=clues:GOSUB 1030 
220 GOTO 170 
23 IF puntuacion(1)>9 OR 
puntuacion (2) >9 
THEN GOTO 250 . 
240 NEXT go 
250 IF puntuacion(1)<10 AND 
puntuacion (2)<10 
THEN GOTO 120 
260 CLS 
270 temp=1: IF puntuacion(2)>9 THEN 120 
280 CLS:GOSUB 410:GOSUB 340 
290 LOCATE 1,8: 
PRINT "El ganador es "; 
jugador$(temp) 
300- LOCATE 1,16: 
FRINT 
"Quereis jugar otra vez (S/N) 2 "; 
310 tempt=INKEYS$ 
315 IF temp$="" THEN GOTO 310 
320 IF temp$<>"N" AND temp*<>"m 
THEN GOTO 40 
330 CLS:END 
AO MMIOIOIOIOIO A FUN TUAC 1 ONIOGOGIOIOIOIOOIOIOIO NOK 
350 LOCATE 1,5: 
FPRINT jugador+$(1);": ": 
puntuacion (1) 
2360 LOCATE 19,5: 
PRINT jugador$(2);": "5 
puntuacion (2) 
370 RETURN 
AJO MIOIBIOIOIOIBIPIOION CABE CER AGOIOIOIOOIOIOOIO OO 
420 LOCATE 1,2: 
PRINT "AREAS" 
430 LOCATE 1,3: 
PRINT "=====" 
440 RETURN 
510. MOIGOIOIGIONKXALEER LOS NOMBRE SAO Kk 
520 temp$="":tempis+$="" 
530 ”Acumular letras 
540 temp$=INKEYS ; 
545 IF temp*="" THEN GOTO 340 
550 temp$=UPPERS (temp$) 
560 1F temp$>=" " AND temp$<="Z" AND 
LEN(temp1$)<10 
THEN tempis$=tempis$+temp$: 
PRINT temp$; 
570 1F temp$=CHR$(127) AND 
LEN(temp1$)>0 
THEN tempit=LEFT*(tempis$, 
LEN(tempi1$)-1): 
PRINT CHR$(8)3" "¿CHR$(8);3 
580 IF temp$<>CHR$(13) OR LEN (temp1$)=0 | 
THEN GOTO 53:30 | 
590 RETURN 
600 MIOIOIOIOOIOIOIMIO.O CORRECT AJOOIOOIOIOIOOIOOOk 
610 flag=-1 : 
620 puntuacion (go)= 
puntuacion (go) +4-clues 
630 PEN 1 ] 
640 FOR i=1i TO 6 
650 LOCATE 13,i+1: 


LOCATE 13,.i: 


PRINT 


670 SOUND 1,ix40,10 
TT 680 SOUND 2,ix40+1,8 
670 +, IF SQ(1)<>4 THEN GOTO 490 


2700 NEXT i 

710 , LOCATE 13,7: 
_PRINT " 
“FOR j¿=1 TOD 1000:NEXT j 
RETURN 
RARO INCORRECTA JOROOOO. 
FEN 2 
760 ¿FOR i=6 TO 1 STEP -1 
LOCATE 15,i: 


—— 720 
30 
740 
TT 750 


He 


FRINT "FALLASTE" 
| 780 LOCATE 15,i+1: 
— PRINT " ” 
790 SOUND 1,ix40,10 
800 IF SQ(1)<>4 THEN GOTO 800 
TT 810 NEXT i 
820 LOCATE 15,2: 


PRINT "Contenia 
LOCATE 16,3: 
PRINT heightiwdth 

—_830 FOR j¡=1 TO 1000:NEXT j 

840 RETURN 

850 MAOIOIGIOIGIOIOIONOK: DI BUJAR 

E fp OD r yoo MOOIOOIOIOIOIOIOIOIOIOIOON 

870 PLOT £00,400,1 


8806  ox=100: oy=100: x=w:y=h:GOSUB 9 
890 PLOT £00,400, de ES 


900  ox= POS O O: y=30: GO: 
__910 RETURN ci 


920 REM 
930 MOVE 0x/2,0y/3:2 
— DRAWR 0, y/3:DRAWR x/2 ,» O: 


DRAWR 0,-—y/Z: DRAWR =x/2, 
E RETURN Ñ 


a 9 MOIOIIOGOOK GENERAR P 
> eS REGUNT AdalaldldlolololoKK 
970  height=INT(RND(1)x14+1) 
“980 height=INT(RND(1)x14+1) 
990 wdth=INT(RND(1)x22+1)” 
—.1000 h=heightxz30: 
w=wdthx50 
1010 GOSUE 850 


«-— 1020 RETURN 


1070 OIBGIBIOIMIBIOIOIOK SO 
EA o te ies NT DOOR IOGIOOIOIOIOIOIOIOK 
FOR k=1 TO h STEP 230: 
O0x=100:20y=99+k::=50: y=303 
GOSUE 920: SOUND 1,200,102 
SOUND 1,0,3: 
NEXT k: RETURN 


— 


a 
[1050 


IF num=2 THEN 
FOR k=1 TO w STEF So: 
0:=99+k:0y=100:x=50: y=30:2 
GOSUE 920:SOUND 1,100,103 . 
SOUND 1,0,3: 
NEXT k: RETURN 
1060 FOR k=1 TO h STEP 30: 
FOR 1=1 TO w STEP 50 


1070 0x=99+1:0y=99+k:x=50: y=30: 
. GOSUB 220 
res IF SQ(1)<>4 THEN GOTO 1080 
SOUND 1, INT(RND(1) 2 
: 1095 NEXT 13 ds 


NEXT k 
1100 RETURN 


Aquí el ordenador 
Hit-Bit de Sony. 


TAGG 


Aquí a su izquierda tiene el nue- 
vo ordenador personal Hit-Bit de 
SONY. Algo especial, el auténtico 
ordenador doméstico. Repetimos, 
es de SONY. 

A la derecha tenemos a una fa- 
milia. Normal. Como la suya o la 
de tantos. Con problemas o no, con 
aficiones y con ganas de tenerlo to- 
do muy bien ordenado. 

El hombre puede usar el Hit-Bit 
para resolver sus asuntos profesio- 
nales a la perfección. 

Pero también en casa Hit-Bit 
echa una mano: contabilidad del 
hogar, agenda familiar y todo lo 
que haya que ordenar. 

Y todos los comecocos, marcia- 
nitos y monstruitos que su hijo le 
pida. Pero también una amplia ga- 
ma de posibilidades en programas 
educativos. 


HBD-50 MICRO 
FLOPPYDISK DRIVE. 
El HBD:-50 se conecta 
fácilmente al HIT BIT. 
Diseñado para utilizar los 
Micro Floppy Disk de 

3,5 pulgadas de SONY. 


JS-55 MANDO PARA 
JUEGOS. 

Diseñado especialmente para 
ser utilizado por diestros o 
zurdos, su manejo es sencillo 
y su apariencia sumamente 
atractiva. 


El Hit-Bit, le ofrece además el 
Sistema MSX compatible con más 
de 20 marcas distintas. 

También un sistema de notas 
musicales que le permite crear sus 
propios efectos o componer una 
partitura. 

Pero aún hay más, el Hit-Bit le 
ofrece no tan sólo la posibilidad de 
crear y realizar gráficos, si no que 
dispone de toda una serie comple- 
ta de periféricos para que su orde- 
nador se convierta en algo real- 
mente serio. Sólo Sony puede ofre- 


EL CARTUCHO HBI-55 


LE PERMITE 

ALMACENAR 4 KBYTES 

DE INFORMACION HBM-16 y HBM-64 
PERSONAL. CARTUCHOS 


DE AMPLIACION 

DE MEMORIA. 
Insertando el HBM-16 
obtendrá 16 Kbytes extra de 
memoria RAM. El HBM-64 
le ofrece 64 Kbytes 


Gracias a la batería 
incorporada el HBI-55 guarda 
los datos aunque se desconecte 
el ordenador y se extraiga el 
cartucho. 


Aquí la familia. 


cer en un ordenador de este tipo 
tantas posibilidades. 

Sin compromiso alguno. En cual- 
quier distribuidor SONY pueden 
presentarse mutuamente. Seguro 
que se entienden, piense que el 
Hit-Bit es de SONY. ¿Se empieza 
ya a imaginar lo que es capaz de 
hacer? 

Hit-Bit. Ya sabe, para lo que Vd. 
y su familia gusten ordenar. 


ORDENADOR DOMESTICO 


117117 


SONY 


PRN-C41 IMPRESORA- PLOTTER EN COLOR. 
La PRN-C41 le permite 


imprimir una amplia gama 
de gráficos utilizando el HIT 
BIT. Permite utilizar hojas 


de papel o un rollo continuo, 
y el texto y gráficos pueden ser 
escritos y diseñados en negro, 
azul, rojo o verde. 
La impresora es ligera y 
compacta, con un diseño 
__ moderno, práctico y atractivo. 


OM-D3440 MICRO 
FLOPPYDISK. 

500 Kbytes de información 
(más de 500.000 caracteres) 
caben en estos pequeños 
diskettes de 3,5 pulgadas. 
Además, su carcasa protectora 
le garantiza una larga vida. 


FSOFT MAGAZINE/..........—. 0.0 


e 


